home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Data / Include / physic.lh < prev    next >
Text File  |  1996-12-21  |  1KB  |  43 lines
  1. /********************************************************/
  2. /* physical constants  21.12.1996 by P!\K / Un0X        */
  3. /*                                                      */
  4. /* all values given in SI units                         */
  5. /********************************************************/
  6.  
  7.  
  8. /************************/
  9. /* general              */
  10. /************************/
  11. G           := 6.67e-11;
  12. g           := 9.81;
  13. N_A         := 6.0225e23;
  14. R           := 8.31;
  15. k           := eval(R/N_A);
  16. c_0         := 2.99792458e8;
  17. my_0        := 4*pi*1e-7;
  18. epsilon_0   := 8.854e-12;
  19.  
  20. /************************/
  21. /* atoms                */
  22. /************************/
  23. m_p         := 1.6725e-27;
  24. m_n         := 1.6747e-27;
  25. m_e         := 0.911e-30;
  26. q_e         := 1.602e-19;
  27. u           := 1.66042e-27;
  28. h           := 6.626e-34;
  29. ~h          := eval(h/(2*pi));
  30.  
  31. /************************/
  32. /* astronomics          */
  33. /************************/
  34. m_sun       := 1.99e30;
  35. r_sun       := 6.96e8;
  36. m_earth     := 5.98e24;
  37. r_earth     := 6.37e6;
  38. d_earth     := 1.49e11;
  39. m_moon      := 7.34e22;
  40. r_moon      := 1.74e6;
  41. d_moon      := 3.84e8;
  42.  
  43.